Dim h
With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Number")
	.Columns.Add("Format")
	With .Items
		h = .AddItem("1.23")
		.set_CellValueFormat(h,1,exontrol.EXG2ANTTLib.ValueFormatEnum.exComputedField)
		.set_CellValue(h,1,"2 * %0 + ` (2 * Number)`")
		h = .AddItem("1.23")
		.set_CellValueFormat(h,1,exontrol.EXG2ANTTLib.ValueFormatEnum.exComputedField)
		.set_CellValue(h,1,"3 * %0 + ` (3 * Number)`")
		h = .AddItem("1.23")
		.set_CellValueFormat(h,1,exontrol.EXG2ANTTLib.ValueFormatEnum.exComputedField)
		.set_CellValue(h,1,"currency(%0) + ` ( Currency(Number) )`")
	End With
	.EndUpdate()
End With

With Exg2antt1
	.BeginUpdate()
	.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
	.Columns.Add("Default")
	With .Chart
		.AllowInsideZoom = True
		.FirstWeekDay = exontrol.EXG2ANTTLib.WeekDayEnum.exMonday
		.FirstVisibleDate = #3/31/2013#
		.set_PaneWidth(False,52)
		.LevelCount = 2
		.UnitScale = exontrol.EXG2ANTTLib.UnitEnum.exHour
		.get_Level(1).Label = "<font ;6><%h%></font>"
		.UnitWidth = 14
		.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
		.AllowInsideZoom = True
		.DefaultInsideZoomFormat.InsideUnit = exontrol.EXG2ANTTLib.UnitEnum.exMinute
		.AllowResizeInsideZoom = False
		.InsideZoomOnDblClick = False
		With .InsideZooms
			.SplitBaseLevel = False
			.DefaultWidth = 0
		End With
		With .InsideZooms
			.Add(#3/31/2013 11:00:00 PM#)
		End With
	End With
	With .Items
		.AddItem("Item")
	End With
	.EndUpdate()
End With

' Change event - Occurs when the user changes the cell's content.
Private Sub Exg2antt1_Change(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer,ByRef NewValue As Object) Handles Exg2antt1.Change
	With Exg2antt1
		Debug.Print( "NewValue is" )
		Debug.Print( NewValue )
	End With
End Sub

With Exg2antt1
	With .Columns.Add("DropDownList-String").Editor
		.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DropDownListType
		.AddItem(1,"NYC|New York City")
		.AddItem(2,"CJN|Cluj Napoca")
	End With
	With .Columns.Add("DropDownList-Numeric").Editor
		.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DropDownListType
		.AddItem(1,"New York City")
		.AddItem(2,"Cluj Napoca")
	End With
	With .Items
		.set_CellValue(.AddItem("NYC"),1,2)
	End With
End With

With Exg2antt1
	.BeginUpdate()
	With .Columns.Add("Edit")
		.Width = 64
		.AllowSizing = False
		With .Editor
			.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.MaskType
			.Mask = ";;;rich"
		End With
	End With
	.Columns.Add("Empty")
	With .Items
		.AddItem("This is a bit ot long text")
		.AddItem("")
	End With
	.EndUpdate()
End With

Dim h
With Exg2antt1
	.BeginUpdate()
	With .Columns.Add("DropDown")
		.Width = 64
		.AllowSizing = False
		With .Editor
			.DropDownAlignment = &H20
			.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DropDownType
			.AddItem(1,"First item. This is a bit ot long text")
			.AddItem(2,"Second item. This is a bit ot long text")
			.AddItem(3,"Third item. This is a bit ot long text")
			.Mask = ";;;rich"
		End With
	End With
	With .Columns.Add("PickEdit")
		.Width = 64
		.AllowSizing = False
		With .Editor
			.DropDownAlignment = &H20
			.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.PickEditType
			.AddItem(1,"First item. This is a bit ot long text")
			.AddItem(2,"Second item. This is a bit ot long text")
			.AddItem(3,"Third item. This is a bit ot long text")
			.Mask = ";;;rich"
		End With
	End With
	.Columns.Add("Empty")
	With .Items
		.set_CellValue(.AddItem("First item. This is a bit ot long text"),1,"Second item. This is a bit ot long text")
		h = .AddItem("First item. This is a bit ot long text")
		With .get_CellEditor(h,0)
			.DropDownAlignment = &H20
			.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DropDownType
			.AddItem(1,"First item. This is a bit ot long text")
			.AddItem(2,"Second item. This is a bit ot long text")
			.AddItem(3,"Third item. This is a bit ot long text")
		End With
		.set_CellValue(h,1,"Second item. This is a bit ot long text")
		With .get_CellEditor(h,1)
			.DropDownAlignment = &H20
			.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.PickEditType
			.AddItem(1,"First item. This is a bit ot long text")
			.AddItem(2,"Second item. This is a bit ot long text")
			.AddItem(3,"Third item. This is a bit ot long text")
		End With
	End With
	.EndUpdate()
End With

With Exg2antt1
	.BeginUpdate()
	With .Columns.Add("Date").Editor
		.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
		.set_Option(exontrol.EXG2ANTTLib.EditorOptionEnum.exDropDownBackColor,15790320)
		.set_Option(exontrol.EXG2ANTTLib.EditorOptionEnum.exDropDownForeColor,65793)
	End With
	.Items.AddItem(#1/1/2001#)
	.EndUpdate()
End With

' EditClose event - Occurs when the edit operation ends.
Private Sub Exg2antt1_EditCloseEvent(ByVal sender As System.Object) Handles Exg2antt1.EditCloseEvent
	With Exg2antt1
		With .Items
			.ClearCellBackColor(.FocusItem,Exg2antt1.FocusColumnIndex)
		End With
	End With
End Sub

' EditOpen event - Occurs when the edit operation starts.
Private Sub Exg2antt1_EditOpen(ByVal sender As System.Object) Handles Exg2antt1.EditOpen
	With Exg2antt1
		With .Items
			.set_CellBackColor(.FocusItem,Exg2antt1.FocusColumnIndex,Color.FromArgb(255,0,0))
		End With
		With .Items
			.set_CellValue(.FocusItem,Exg2antt1.FocusColumnIndex,Exg2antt1.Items.get_CellValue(Exg2antt1.Items.FocusItem,Exg2antt1.FocusColumnIndex))
		End With
	End With
End Sub

With Exg2antt1
	.FullRowSelect = exontrol.EXG2ANTTLib.CellSelectEnum.exColumnSel
	.Columns.Add("C1").Editor.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.EditType
	.Columns.Add("C2").Editor.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.EditType
	With .Items
		.set_CellValue(.AddItem("v1"),1,"v2")
		.set_CellValue(.AddItem("v3"),1,"v4")
	End With
End With

With Exg2antt1
	.BeginUpdate()
	.CauseValidateValue = exontrol.EXG2ANTTLib.ValidateValueType.exValidateCell
	.FullRowSelect = exontrol.EXG2ANTTLib.CellSelectEnum.exColumnSel
	.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exRowLines
	With .Columns.Add("Date").Editor
		.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
		.Mask = "!99/99/9999;1;;empty=1,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!" & _
",select=4,overtype"
	End With
	With .Items
		.AddItem()
		.AddItem(#1/1/2001#)
		.AddItem()
	End With
	.EndUpdate()
End With

With Exg2antt1
	.Columns.Add("DropDown")
	With .Items
		With .get_CellEditor(.AddItem(#1/1/2001#),0)
			.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
			.DropDownAlignment = exontrol.EXG2ANTTLib.AlignmentEnum.RightAlignment
		End With
		With .get_CellEditor(.AddItem(#1/1/2001#),0)
			.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
			.DropDownAlignment = exontrol.EXG2ANTTLib.AlignmentEnum.CenterAlignment
		End With
		With .get_CellEditor(.AddItem(#1/1/2001#),0)
			.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
			.DropDownAlignment = exontrol.EXG2ANTTLib.AlignmentEnum.LeftAlignment
		End With
		With .get_CellEditor(.AddItem(#1/1/2001#),0)
			.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
			.DropDownAlignment = &H20
		End With
		With .get_CellEditor(.AddItem(#1/1/2001#),0)
			.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
			.DropDownAlignment = &H20 Or exontrol.EXG2ANTTLib.AlignmentEnum.CenterAlignment
		End With
		With .get_CellEditor(.AddItem(#1/1/2001#),0)
			.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
			.DropDownAlignment = &H20 Or exontrol.EXG2ANTTLib.AlignmentEnum.RightAlignment
		End With
	End With
End With

With Exg2antt1
	.Columns.Add("DropDown").Editor.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
	With .Items
		With .get_CellEditor(.AddItem(#1/1/2001#),0)
			.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
			.DropDownAlignment = &H20
		End With
		With .get_CellEditor(.AddItem(#1/1/2001#),0)
			.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
			.DropDownAlignment = exontrol.EXG2ANTTLib.AlignmentEnum.exHOutside
		End With
		.AddItem(#1/1/2001#)
	End With
End With

With Exg2antt1
	.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exRowLines
	.FullRowSelect = exontrol.EXG2ANTTLib.CellSelectEnum.exColumnSel
	With .Columns.Add("Float")
		With .Editor
			.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.MaskType
			.Mask = ";;;float,digits=0,grouping=,invalid=empty,warning=invalid character"
		End With
	End With
	.Items.AddItem(192278)
	.Items.AddItem(1000)
End With

Dim h
With Exg2antt1
	.BeginUpdate()
	.CauseValidateValue = exontrol.EXG2ANTTLib.ValidateValueType.exValidateCell
	.FullRowSelect = exontrol.EXG2ANTTLib.CellSelectEnum.exColumnSel
	.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exRowLines
	.Columns.Add("Date")
	.Columns.Add("Mask")
	With .Items
		h = .AddItem(#1/1/2001#)
		With .get_CellEditor(h,0)
			.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
			.Mask = "{1,12}/{1,31}/{1950,2050};1;;select=1,warning=Invalid character!,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b" & _
">!,validateas=1"
		End With
		.set_CellValue(h,1,.get_CellEditor(h,0).Mask)
		h = .AddItem(#1/1/2001#)
		With .get_CellEditor(h,0)
			.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
			.Mask = "!99/99/9999;1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,s" & _
"elect=4,overtype"
		End With
		.set_CellValue(h,1,.get_CellEditor(h,0).Mask)
		h = .AddItem(#1/1/2001#)
		With .get_CellEditor(h,0)
			.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
			.Mask = "!99/99/9999;;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,se" & _
"lect=4,overtype"
		End With
		.set_CellValue(h,1,.get_CellEditor(h,0).Mask)
		h = .AddItem(#1/1/2001#)
		With .get_CellEditor(h,0)
			.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
			.Mask = "!99/99/9999;; ;select=4,overtype,empty,warning=Invalid character!,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</" & _
"b>!,validateas=1"
		End With
		.set_CellValue(h,1,.get_CellEditor(h,0).Mask)
		h = .AddItem(#1/1/2001#)
		With .get_CellEditor(h,0)
			.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
			.Mask = "![0-9 ][0-9 ]/[0-9 ][0-9 ]/[0-9 ][0-9 ][0-9 ][0-9 ];1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%m" & _
"ask%>'</b>!,warning=Invalid character!,select=4,leading= "
		End With
		.set_CellValue(h,1,.get_CellEditor(h,0).Mask)
		h = .AddItem(#1/1/2001#)
		.set_FormatCell(h,0,"len(value) ? shortdateF(value) : ``")
		With .get_CellEditor(h,0)
			.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
			.Mask = "!99/99/9999;1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,s" & _
"elect=4,overtype,leading"
		End With
		.set_CellValue(h,1,.get_CellEditor(h,0).Mask)
		h = .AddItem(#1/1/2001#)
		.set_FormatCell(h,0,"len(value) ? shortdateF(value) : ``")
		With .get_CellEditor(h,0)
			.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
			.Mask = "!00/00/0000;1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,s" & _
"elect=4,overtype,leading"
		End With
		.set_CellValue(h,1,.get_CellEditor(h,0).Mask)
		h = .AddItem(#1/1/2001#)
		.set_FormatCell(h,0,"len(value) ? shortdateF(value) : ``")
		With .get_CellEditor(h,0)
			.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
			.Mask = "!00/00/0000;;0;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,s" & _
"elect=4,overtype"
		End With
		.set_CellValue(h,1,.get_CellEditor(h,0).Mask)
		h = .AddItem(#1/1/2001#)
		.set_FormatCell(h,0,"len(value) ? shortdateF(value) : ``")
		With .get_CellEditor(h,0)
			.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
			.Mask = "!00/00/0000;;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,se" & _
"lect=1,overtype"
		End With
		.set_CellValue(h,1,.get_CellEditor(h,0).Mask)
	End With
	.EndUpdate()
End With

With Exg2antt1
	With .Columns.Add("Float")
		.FormatColumn = "value format `0`"
		With .Editor
			.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.MaskType
			.Mask = ";;;float,digits=0"
		End With
	End With
	.Items.AddItem(192278)
End With

With Exg2antt1
	With .Columns.Add("Float")
		.FormatColumn = "value format ``"
		With .Editor
			.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.MaskType
			.Mask = ";;;float"
		End With
	End With
	.Items.AddItem(192278)
End With

Dim h
With Exg2antt1
	.CauseValidateValue = exontrol.EXG2ANTTLib.ValidateValueType.exValidateCell
	.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exRowLines
	.FullRowSelect = exontrol.EXG2ANTTLib.CellSelectEnum.exColumnSel
	.Columns.Add("Phone").Editor.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.MaskType
	With .Items
		h = .AddItem()
		With .get_CellEditor(h,0)
			.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.MaskType
			.Mask = "!(999) 000 0000;1;;select=1,empty,overtype,warning=invalid characer,invalid=The value you entered isn't appropriate for the inp" & _
"ut mask <b>'<%mask%>'</b> specified for this field."
		End With
		h = .AddItem("0123")
		With .get_CellEditor(h,0)
			.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.MaskType
			.Mask = "!(999) 000 0000;2;;select=4"
		End With
		h = .AddItem("0123")
		With .get_CellEditor(h,0)
			.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.MaskType
			.Mask = "`Phone: `!(999) 000-0000"
		End With
		h = .AddItem("(074) 876-1222")
		With .get_CellEditor(h,0)
			.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.MaskType
			.Mask = "!(999) 000-0000;0"
		End With
	End With
End With

Dim h
With Exg2antt1
	.Columns.Add("Color").Editor.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.ColorType
	With .Items
		.AddItem(255)
		h = .AddItem(255)
		With .get_CellEditor(h,0)
			.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.ColorType
			.Mask = "`RGB(`{0,255}\,{0,255}\,{0,255}`)`;;0"
		End With
		h = .AddItem(255)
		With .get_CellEditor(h,0)
			.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.ColorType
			.Mask = "`&H`XXXXXXXX`&`;;0;overtype,insertype,warning=Wrong!"
		End With
		h = .AddItem(255)
		With .get_CellEditor(h,0)
			.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.ColorType
			.Mask = "`0x`XX `0x`XX `0x`XX;;0;overtype,insertype,warning=Wrong!"
		End With
		h = .AddItem(255)
		With .get_CellEditor(h,0)
			.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.ColorType
			.Mask = "R{0,255} G{0,255} B{0,255};;0;overtype,insertype,warning=Wrong!"
		End With
		h = .AddItem(255)
		With .get_CellEditor(h,0)
			.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.ColorType
			.Mask = "`(hexa) RGB 0x`XXXXXX;;0;overtype,insertype,warning=Wrong!"
		End With
		h = .AddItem(255)
		With .get_CellEditor(h,0)
			.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.ColorType
			.Mask = "`(decimal) Red: `{0,255}` Green: `{0,255}` Blue: `{0,255};;0;overtype,insertype,warning=Wrong!"
		End With
		h = .AddItem(255)
		With .get_CellEditor(h,0)
			.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.ColorType
			.Mask = "`(combine) Red: `{0,255}` Green: 0x`XX` Blue: `{0,255};;0;overtype,insertype,warning=Wrong!"
		End With
	End With
End With

With Exg2antt1
	.Columns.Add("Task")
	With .Chart.Bars
		.Copy("Task","STask").Color = Color.FromArgb(255,0,0)
		.Add("Task:STask").Shortcut = "TS"
	End With
	With .Chart
		.set_PaneWidth(False,96)
		.FirstVisibleDate = #1/1/2001#
		.NonworkingDaysColor = .Bars.Item("STask").Color
	End With
	With .Items
		.AddBar(.AddItem("Task 1"),"TS",#1/2/2001#,#1/16/2001#)
	End With
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exg2antt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exg2antt1.AddItem
	With Exg2antt1
		.Items.set_CellMerge(Item,0,1)
	End With
End Sub

With Exg2antt1
	.MarkSearchColumn = False
	.TreeColumnIndex = -1
	.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
	.Columns.Add("C1").set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellSingleLine,False)
	.Columns.Add("C2")
	.Columns.Add("C3")
	With .Items
		.AddItem("This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines.")
		.AddItem("This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines.")
	End With
End With

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub Exg2antt1_CellStateChanged(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer) Handles Exg2antt1.CellStateChanged
	With Exg2antt1
		With .Items
			.set_ExpandItem(Item,False)
		End With
	End With
End Sub

Dim h,hChild
With Exg2antt1
	.BeginUpdate()
	With .Columns
		With .Add("")
			.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox,True)
			.AllowSizing = False
			.Width = 18
			.PartialCheck = True
		End With
		.Add("Tasks")
	End With
	.ShowFocusRect = False
	.HasButtons = exontrol.EXG2ANTTLib.ExpandButtonEnum.exNoButtons
	.TreeColumnIndex = 1
	.Indent = 14
	.ExpandOnDblClick = False
	.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exNoLinesAtRoot
	With .Items
		h = .AddItem("")
		.set_CellState(h,0,1)
		.set_CellValue(h,1,"Project")
		hChild = .InsertItem(h,Nothing,"")
		.set_CellValue(hChild,1,"Task 1")
		hChild = .InsertItem(h,Nothing,"")
		.set_CellValue(hChild,1,"Task 2")
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With

Dim h,hChild
With Exg2antt1
	.BeginUpdate()
	With .Columns
		With .Add("")
			.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox,True)
			.AllowSizing = False
			.Width = 18
			.PartialCheck = True
		End With
		.Add("Tasks")
	End With
	.ShowFocusRect = False
	.HasButtons = exontrol.EXG2ANTTLib.ExpandButtonEnum.exNoButtons
	.TreeColumnIndex = 1
	.Indent = 14
	.ExpandOnDblClick = False
	.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exNoLinesAtRoot
	With .Items
		h = .AddItem("")
		.set_CellState(h,0,1)
		.set_CellValue(h,1,"Project")
		hChild = .InsertItem(h,Nothing,"")
		.set_CellValue(hChild,1,"Task 1")
		hChild = .InsertItem(h,Nothing,"")
		.set_CellValue(hChild,1,"Task 2")
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With

Dim h
With Exg2antt1
	.BeginUpdate()
	.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
	With .Chart
		.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
		.FirstVisibleDate = #1/1/2002#
		.Bars.Item("Task").OverlaidType = exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack
		.set_PaneWidth(False,128)
	End With
	.Columns.Add("Task")
	With .Items
		h = .AddItem("Tasks")
		.AddBar(h,"Task",#1/2/2002#,#1/7/2002#,"A")
		.AddBar(h,"Task",#1/3/2002#,#1/8/2002#,"B")
		.AddBar(h,"Task",#1/4/2002#,#1/9/2002#,"C")
		.set_ItemBar(h,"A",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,255)
		.AddLink("AB",h,"A",h,"B")
		.AddLink("BC",h,"B",h,"C")
	End With
	.EndUpdate()
End With

' Change event - Occurs when the user changes the cell's content.
Private Sub Exg2antt1_Change(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer,ByRef NewValue As Object) Handles Exg2antt1.Change
	With Exg2antt1
		Debug.Print( "NewValue:" )
		Debug.Print( NewValue )
		Debug.Print( "EditingValue:" )
		Debug.Print( .EditingText )
	End With
End Sub

With Exg2antt1
	.BeginUpdate()
	.Chart.set_PaneWidth(True,0)
	.Columns.Add("Edit").Editor.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
	.Items.AddItem(#1/1/2001#)
	.EndUpdate()
End With

Dim h
With Exg2antt1
	.ShowLockedItems = True
	.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exVLines
	.Columns.Add("C1")
	.Columns.Add("C2")
	With .Items
		.set_LockedItemCount(exontrol.EXG2ANTTLib.VAlignmentEnum.exBottom,1)
		h = .get_LockedItem(exontrol.EXG2ANTTLib.VAlignmentEnum.exBottom,0)
		.set_ItemBackColor(h,Color.FromArgb(128,128,128))
		.set_ItemForeColor(h,Color.FromArgb(255,255,255))
		.set_CellValue(h,0,"footer c1")
		.set_CellValue(h,1,"footer c2")
		.set_CellValue(.AddItem("cell"),1,"cell")
	End With
End With

Dim h
With Exg2antt1
	.ShowLockedItems = True
	.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exVLines
	.Columns.Add("C1")
	.Columns.Add("C2")
	With .Items
		.set_LockedItemCount(exontrol.EXG2ANTTLib.VAlignmentEnum.exTop,1)
		h = .get_LockedItem(exontrol.EXG2ANTTLib.VAlignmentEnum.exTop,0)
		.set_ItemBackColor(h,Color.FromArgb(128,128,128))
		.set_ItemForeColor(h,Color.FromArgb(255,255,255))
		.set_CellValue(h,0,"footer c1")
		.set_CellValue(h,1,"footer c2")
		.set_CellValue(.AddItem("cell"),1,"cell")
	End With
End With

With Exg2antt1
	.ColumnAutoResize = True
	.Columns.Add("Sizable")
	With .Columns.Add("F")
		.AllowSizing = False
		.Width = 16
	End With
End With

With Exg2antt1
	.SortBarVisible = True
	With .Columns
		.Add(0)
		.Add(1)
		.Add(2)
		.Add(3)
		.Add(4)
	End With
	.Layout = "multiplesort=""C3:1 C4:2"";singlesort=""C2:1"""
End With

Dim h
With Exg2antt1
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.HistogramVisible = True
		.HistogramHeight = 32
		.Bars.Item("Task").HistogramPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBDiagonal
		.set_PaneWidth(False,128)
	End With
	.Columns.Add("Column")
	With .Items
		.AddBar(.AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#)
		h = .AddItem("Item 2")
		.AddBar(h,"Task",#1/3/2001#,#1/7/2001#)
		.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,255)
		.AddBar(.AddItem("Item 3"),"Task",#1/6/2001#,#1/9/2001#)
	End With
End With

Dim h
With Exg2antt1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"c:\exontrol\images\normal.ebn")
		.Add(2,"c:\exontrol\images\pushed.ebn")
	End With
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.set_PaneWidth(False,128)
	End With
	.Columns.Add("Tasks")
	With .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#)
		h = .AddItem("Task 2")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#)
		.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,255)
		h = .AddItem("Task 3")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#)
		.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,16777216)
		h = .AddItem("Task 4")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#)
		.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,16777471)
		h = .AddItem("Task 5")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#)
		.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,33619967)
	End With
	.EndUpdate()
End With

' Change event - Occurs when the user changes the cell's content.
Private Sub Exg2antt1_Change(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer,ByRef NewValue As Object) Handles Exg2antt1.Change
	With Exg2antt1
		Debug.Print( "Prev Value " )
		Debug.Print( .Items.get_CellValue(Item,ColIndex) )
		Debug.Print( "Check and Update the NewValue" )
		Debug.Print( NewValue )
		NewValue = #1/1/2001#
	End With
End Sub

With Exg2antt1
	.BeginUpdate()
	.MarkSearchColumn = False
	With .Columns.Add("Date")
		.FormatColumn = "day(value) + `/` + month(value) + `/` + year(value)"
		With .Editor
			.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
			.Mask = "{1,12}\/{1,31}\/{1,2099}"
		End With
	End With
	.Items.AddItem(#1/1/2001#)
	.EndUpdate()
End With

With Exg2antt1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExG2antt\Sample\EBN\frame.ebn")
	.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exToolTipAppearance,&H1000000)
	.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
End With

With Exg2antt1
	With .Columns.Add("Edit").Editor
		.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.EditType
		.Numeric = exontrol.EXG2ANTTLib.NumericEnum.exDisableSigns Or exontrol.EXG2ANTTLib.NumericEnum.exFloatInteger
	End With
	.Items.AddItem(1.22)
End With

With Exg2antt1
	With .Columns.Add("Edit").Editor
		.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.EditType
		.Numeric = exontrol.EXG2ANTTLib.NumericEnum.exDisablePlus Or exontrol.EXG2ANTTLib.NumericEnum.exFloatInteger
	End With
	.Items.AddItem(1.22)
End With

With Exg2antt1
	With .Columns.Add("Edit").Editor
		.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.EditType
		.Numeric = exontrol.EXG2ANTTLib.NumericEnum.exFloatInteger
	End With
	.Items.AddItem(1.22)
End With

With Exg2antt1
	With .Columns.Add("Edit").Editor
		.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.EditType
		.Numeric = &Hfc Or exontrol.EXG2ANTTLib.NumericEnum.exDisableSigns Or exontrol.EXG2ANTTLib.NumericEnum.exFloatInteger Or exontrol.EXG2ANTTLib.NumericEnum.exFloat
	End With
	.Items.AddItem(1)
End With

With Exg2antt1
	With .Columns
		.Add("Value")
		With .Add("CellSingleLine = False")
			.ComputedField = "%0"
			.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellSingleLine,False)
		End With
		With .Add("FormatColumn/replace CRLF")
			.ComputedField = "%0"
			.FormatColumn = "value replace `\r\n` with ``"
		End With
		With .Add("FormatColumn/replace TAB,CRLF")
			.ComputedField = "%0"
			.FormatColumn = "(value replace `\t` with ``) replace `\r\n` with ``"
		End With
	End With
	With .Items
		.AddItem("a\ta\r\nb\tb")
	End With
End With

Dim h1,h2,h3
With Exg2antt1
	.BeginUpdate()
	.DefaultItemHeight = 24
	.Columns.Add("Task")
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #1/1/2001#
		.set_PaneWidth(False,48)
		.NonworkingDays = 0
		.LinksStyle = exontrol.EXG2ANTTLib.LinkStyleEnum.exLinkSolid
		.set_ShowLinksColor(exontrol.EXG2ANTTLib.ShowLinksEnum.exUpdateColorLinksOnly Or exontrol.EXG2ANTTLib.ShowLinksEnum.exShowLinksStartFrom,Color.FromArgb(255,0,0))
		.set_ShowLinksColor(exontrol.EXG2ANTTLib.ShowLinksEnum.exUpdateColorLinksOnly Or exontrol.EXG2ANTTLib.ShowLinksEnum.exShowLinksEndTo,Color.FromArgb(0,255,0))
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",#1/2/2001#,#1/4/2001#,"")
		.set_ItemBar(h2,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected,True)
		.AddLink("L1",h1,"",h2,"")
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",#1/2/2001#,#1/4/2001#,"")
		.AddLink("L2",h2,"",h3,"")
		.SchedulePDM(0,"")
	End With
	.EndUpdate()
End With

Dim h1,h2
With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Tasks")
	With .Chart
		.FirstVisibleDate = #9/19/2006#
		.set_PaneWidth(False,64)
		.NonworkingDaysPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternSolid
		.ShowLinks = exontrol.EXG2ANTTLib.ShowExtendedLinksEnum.exShowLinksFront Or exontrol.EXG2ANTTLib.ShowExtendedLinksEnum.exShowExtendedLinks
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",#9/20/2006#,#9/22/2006#)
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",#9/26/2006#,#9/28/2006#)
		.set_ItemBar(h2,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected,True)
		.AddLink("L1",h1,"",h2,"")
		.set_Link("L1",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkText,"L1")
	End With
	.EndUpdate()
End With

Dim h1,h2,h3
With Exg2antt1
	.BeginUpdate()
	.DefaultItemHeight = 24
	.Columns.Add("Task")
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #1/1/2001#
		.set_PaneWidth(False,48)
		.NonworkingDays = 0
		.LinksStyle = exontrol.EXG2ANTTLib.LinkStyleEnum.exLinkSolid
		.ShowLinks = exontrol.EXG2ANTTLib.ShowExtendedLinksEnum.exShowExtendedLinks
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",#1/2/2001#,#1/4/2001#,"")
		.AddLink("L1",h1,"",h2,"")
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",#1/2/2001#,#1/4/2001#,"")
		.AddLink("L2",h3,"",h2,"")
		.SchedulePDM(0,"")
	End With
	.EndUpdate()
End With

Dim hSummary,hTask
With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.set_PaneWidth(False,128)
		.FirstVisibleDate = #1/1/2001#
	End With
	With .Items
		hSummary = .AddItem("Task")
		.AddBar(hSummary,"Task",#1/2/2001#,#1/5/2001#,"K1")
		hTask = .InsertItem(hSummary,Nothing,"Task A")
		.AddBar(hTask,"Task",#1/2/2001#,#1/5/2001#,"K1")
		.AddBar(.InsertItem(hTask,Nothing,"Task A.1"),"Task",#1/3/2001#,#1/5/2001#,"K11")
		.AddBar(.InsertItem(hTask,Nothing,"Task A.2"),"Task",#1/3/2001#,#1/5/2001#,"K12")
		hTask = .InsertItem(hSummary,Nothing,"Task B")
		.AddBar(hTask,"Task",#1/2/2001#,#1/5/2001#,"K2")
		hTask = .InsertItem(hTask,Nothing,"Task B.1")
		.AddBar(hTask,"Task",#1/5/2001#,#1/9/2001#,"K21")
		.set_ExpandItem(0,True)
		Debug.Print( "Count: " )
		Debug.Print( .get_ItemBar(0,"<*>",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarsCount) )
	End With
	.EndUpdate()
End With

Dim hSummary,hTask
With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.set_PaneWidth(False,128)
		.FirstVisibleDate = #1/1/2001#
		.Bars.Copy("Task","CountTask").Color = Color.FromArgb(0,255,0)
	End With
	With .Items
		hSummary = .AddItem("Project")
		.set_ItemBold(hSummary,True)
		hTask = .InsertItem(hSummary,Nothing,"Task A")
		.AddBar(hTask,"CountTask",#1/2/2001#,#1/5/2001#,"K1")
		.AddBar(.InsertItem(hTask,Nothing,"Task A.1"),"CountTask",#1/3/2001#,#1/5/2001#,"K11")
		.AddBar(.InsertItem(hTask,Nothing,"Task A.2"),"CountTask",#1/3/2001#,#1/5/2001#,"K12")
		hTask = .InsertItem(hSummary,Nothing,"Task B")
		.AddBar(hTask,"CountTask",#1/2/2001#,#1/5/2001#,"K2")
		hTask = .InsertItem(hTask,Nothing,"Task B.1")
		.AddBar(hTask,"CountTask",#1/5/2001#,#1/9/2001#,"K21")
		.set_ExpandItem(0,True)
		.DefaultItem = .get_ItemByIndex(0)
		Debug.Print( "Count: " )
		Debug.Print( .get_ItemBar(-3,"<*>",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarsCount) )
		.DefaultItem = 0
	End With
	.EndUpdate()
End With

Dim hSummary,hTask
With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.set_PaneWidth(False,128)
		.FirstVisibleDate = #1/1/2001#
		.Bars.Copy("Task","CountTask").Color = Color.FromArgb(0,255,0)
	End With
	With .Items
		hSummary = .AddItem("Project")
		.set_ItemBold(hSummary,True)
		hTask = .InsertItem(hSummary,Nothing,"Task A")
		.AddBar(hTask,"Task",#1/2/2001#,#1/5/2001#,"K1")
		.AddBar(.InsertItem(hTask,Nothing,"Task A.1"),"CountTask",#1/3/2001#,#1/5/2001#,"K11")
		.AddBar(.InsertItem(hTask,Nothing,"Task A.2"),"CountTask",#1/3/2001#,#1/5/2001#,"K12")
		hTask = .InsertItem(hSummary,Nothing,"Task B")
		.AddBar(hTask,"Task",#1/2/2001#,#1/5/2001#,"K2")
		hTask = .InsertItem(hTask,Nothing,"Task B.1")
		.AddBar(hTask,"CountTask",#1/5/2001#,#1/9/2001#,"K21")
		.set_ExpandItem(0,True)
		.DefaultItem = .get_ItemByIndex(0)
		Debug.Print( "Count: " )
		Debug.Print( .get_ItemBar(-2,"<*>",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarsCount) )
		.DefaultItem = 0
	End With
	.EndUpdate()
End With

Dim hSummary,hTask
With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.set_PaneWidth(False,128)
		.FirstVisibleDate = #1/1/2001#
		.Bars.Copy("Task","CountTask").Color = Color.FromArgb(0,255,0)
	End With
	With .Items
		hSummary = .AddItem("Project")
		.set_ItemBold(hSummary,True)
		hTask = .InsertItem(hSummary,Nothing,"Task A")
		.AddBar(hTask,"CountTask",#1/2/2001#,#1/5/2001#,"K1")
		.AddBar(.InsertItem(hTask,Nothing,"Task A.1"),"Task",#1/3/2001#,#1/5/2001#,"K11")
		.AddBar(.InsertItem(hTask,Nothing,"Task A.2"),"Task",#1/3/2001#,#1/5/2001#,"K12")
		hTask = .InsertItem(hSummary,Nothing,"Task B")
		.AddBar(hTask,"CountTask",#1/2/2001#,#1/5/2001#,"K2")
		hTask = .InsertItem(hTask,Nothing,"Task B.1")
		.AddBar(hTask,"Task",#1/5/2001#,#1/9/2001#,"K21")
		.set_ExpandItem(0,True)
		.DefaultItem = .get_ItemByIndex(0)
		Debug.Print( "Count: " )
		Debug.Print( .get_ItemBar(-1,"<*>",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarsCount) )
		.DefaultItem = 0
	End With
	.EndUpdate()
End With

Dim hSummary,hTask
With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.set_PaneWidth(False,128)
		.FirstVisibleDate = #1/1/2001#
	End With
	With .Items
		hSummary = .AddItem("Summary")
		.AddBar(hSummary,"Summary",#1/2/2001#,#1/2/2001#,"")
		hTask = .InsertItem(hSummary,Nothing,"Task A")
		.AddBar(hTask,"Task",#1/2/2001#,#1/5/2001#,"K1")
		hTask = .InsertItem(hTask,Nothing,"Task A.1")
		.AddBar(hTask,"Task",#1/3/2001#,#1/5/2001#,"K11")
		hTask = .InsertItem(hSummary,Nothing,"Task B")
		.AddBar(hTask,"Task",#1/2/2001#,#1/5/2001#,"K2")
		hTask = .InsertItem(hTask,Nothing,"Task B.1")
		.AddBar(hTask,"Task",#1/5/2001#,#1/9/2001#,"K21")
		.DefineSummaryBars(hSummary,"",-3,"<K*>")
		.set_ExpandItem(0,True)
	End With
	.EndUpdate()
End With

Dim hSummary,hTask
With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.set_PaneWidth(False,128)
		.FirstVisibleDate = #1/1/2001#
	End With
	With .Items
		hSummary = .AddItem("Summary")
		.AddBar(hSummary,"Summary",#1/2/2001#,#1/2/2001#,"")
		hTask = .InsertItem(hSummary,Nothing,"Task A")
		.AddBar(hTask,"1Task",#1/2/2001#,#1/5/2001#,"K1")
		hTask = .InsertItem(hTask,Nothing,"Task A.1")
		.AddBar(hTask,"Task",#1/3/2001#,#1/5/2001#,"K11")
		hTask = .InsertItem(hSummary,Nothing,"Task B")
		.AddBar(hTask,"1Task",#1/2/2001#,#1/5/2001#,"K2")
		hTask = .InsertItem(hTask,Nothing,"Task B.1")
		.AddBar(hTask,"Task",#1/5/2001#,#1/9/2001#,"K21")
		.DefineSummaryBars(hSummary,"",-2,"<K*>")
		.set_ExpandItem(0,True)
	End With
	.EndUpdate()
End With

Dim hSummary,hTask
With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.set_PaneWidth(False,128)
		.FirstVisibleDate = #1/1/2001#
	End With
	With .Items
		hSummary = .AddItem("Summary")
		.AddBar(hSummary,"Summary",#1/2/2001#,#1/2/2001#,"")
		hTask = .InsertItem(hSummary,Nothing,"Task A")
		.AddBar(hTask,"Task",#1/2/2001#,#1/5/2001#,"K1")
		hTask = .InsertItem(hSummary,Nothing,"Task B")
		.AddBar(hTask,"Task",#1/4/2001#,#1/8/2001#,"K2")
		.set_ExpandItem(hSummary,True)
		.DefineSummaryBars(hSummary,"",-1,"<*>")
	End With
	.EndUpdate()
End With

Dim hSummary
With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.set_PaneWidth(False,128)
		.FirstVisibleDate = #1/1/2001#
	End With
	With .Items
		hSummary = .AddItem("Summary")
		.AddBar(hSummary,"Summary",#1/2/2001#,#1/2/2001#,"summary")
		.AddBar(.AddItem("Task A"),"Task",#1/2/2001#,#1/5/2001#,"K1")
		.AddBar(.AddItem("Task B"),"Task",#1/6/2001#,#1/9/2001#,"K2")
		.AddBar(.AddItem("Task C"),"Task",#1/11/2001#,#1/14/2001#,"K3")
		.DefineSummaryBars(hSummary,"summary",0,"<K*>")
	End With
	.EndUpdate()
End With

' DblClick event - Occurs when the user dblclk the left mouse button over an object.
Private Sub Exg2antt1_DblClick(ByVal sender As System.Object,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exg2antt1.DblClick
	Dim h
	With Exg2antt1
		With .Items
			h = .get_CellChecked(1234)
			.set_CellHasCheckBox(0,h,True)
			.set_CellState(0,h,0)
			.set_CellHasCheckBox(0,h,False)
		End With
	End With
End Sub

' SelectionChanged event - Fired after a new item has been selected.
Private Sub Exg2antt1_SelectionChanged(ByVal sender As System.Object) Handles Exg2antt1.SelectionChanged
	With Exg2antt1
		With .Items
			.set_CellState(.FocusItem,0,1)
		End With
	End With
End Sub

Dim h
With Exg2antt1
	.MarkSearchColumn = False
	.SelBackColor = Color.FromArgb(255,255,128)
	.SelForeColor = Color.FromArgb(0,0,0)
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Radio 1")
		.set_CellHasRadioButton(h,0,True)
		.set_CellRadioGroup(h,0,1234)
		h = .AddItem("Radio 2")
		.set_CellHasRadioButton(h,0,True)
		.set_CellRadioGroup(h,0,1234)
		.set_CellState(h,0,1)
		h = .AddItem("Radio 3")
		.set_CellHasRadioButton(h,0,True)
		.set_CellRadioGroup(h,0,1234)
	End With
End With

With Exg2antt1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.TreeColumnIndex = -1
	.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
	.HeaderHeight = 24
	.DefaultItemHeight = 24
	With .Columns.Add("Image")
		.AllowSizing = False
		.Width = 32
		.HTMLCaption = "<img>1</img>"
		.HeaderAlignment = exontrol.EXG2ANTTLib.AlignmentEnum.CenterAlignment
		.Alignment = exontrol.EXG2ANTTLib.AlignmentEnum.CenterAlignment
		.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueFormat,1)
	End With
	.Columns.Add("Rest")
	With .Items
		.AddItem("<img>1</img>")
		.AddItem("<img>2</img>")
		.AddItem("<img>3</img>")
	End With
	.EndUpdate()
End With

' BarResize event - Occurs when a bar is moved or resized.
Private Sub Exg2antt1_BarResize(ByVal sender As System.Object,ByVal Item As Integer,ByVal Key As Object) Handles Exg2antt1.BarResize
	With Exg2antt1
		.Refresh()
	End With
End Sub

Dim h
With Exg2antt1
	.BeginUpdate()
	.DefaultItemHeight = 22
	.Columns.Add("InterectBars")
	With .Chart
		.set_PaneWidth(False,48)
		.FirstVisibleDate = #1/1/2001#
		With .Bars.Item("Task")
			.OverlaidType = exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsIntersect
			.set_Overlaid(exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsIntersect,"ERROR")
		End With
		With .Bars.Add("ERROR")
			.Color = Color.FromArgb(255,0,0)
			.Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternSolid
			.Height = 7
		End With
	End With
	With .Items
		h = .AddItem("")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"A","A")
		.AddBar(h,"Task",#1/3/2001#,#1/5/2001#,"B","B")
		.set_CellValue(h,0,.get_IntersectBars(h,"A",h,"B"))
		h = .AddItem("")
		.AddBar(h,"Task",#1/6/2001#,#1/9/2001#,"A","A")
		.AddBar(h,"Task",#1/10/2001#,#1/13/2001#,"B","B")
		.set_CellValue(h,0,.get_IntersectBars(h,"A",h,"B"))
		h = .AddItem("")
		.AddBar(h,"Task",#1/6/2001#,#1/9/2001#,"B","B")
		.AddBar(h,"Task",#1/10/2001#,#1/13/2001#,"A","A")
		.set_CellValue(h,0,.get_IntersectBars(h,"A",h,"B"))
	End With
	.EndUpdate()
End With

With Exg2antt1
	.BeginUpdate()
	.HeaderHeight = 32
	With .Columns
		With .Add("ID")
			.HTMLCaption = "<font ;16>ID"
			.Width = 32
			.AllowSizing = False
		End With
		.Add("Task").HTMLCaption = "<font ;16>Task"
	End With
	.FocusColumnIndex = 1
	.ShowFocusRect = False
	.Chart.set_PaneWidth(True,0)
	With .Items
		.set_CellValue(.AddItem(1),1,"Task A")
		.set_CellValue(.AddItem(2),1,"Task B")
	End With
	.EndUpdate()
End With

With Exg2antt1
	.BeginUpdate()
	With .Columns
		With .Add("ID")
			.FormatColumn = "1 index ''"
			.Width = 32
			.AllowSizing = False
		End With
		.Add("Task").Editor.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.EditType
	End With
	.FocusColumnIndex = 1
	.ShowFocusRect = False
	With .Chart
		.set_PaneWidth(False,128)
		.FirstVisibleDate = #1/1/2001#
		.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
	End With
	Exg2antt1.Template = "Chart.Bars(""Task""){Def(3) = ""<%=%C1%>"";Def(4)=18}"
	.EndUpdate()
End With

Dim hSummary,hTask
With Exg2antt1
	.Columns.Add("Task")
	With .Chart
		.set_PaneWidth(False,128)
		.FirstVisibleDate = #1/1/2001#
	End With
	With .Items
		hSummary = .AddItem("Summary")
		.AddBar(hSummary,"Summary",#1/2/2001#,#1/2/2001#)
		hTask = .AddItem("Task A")
		.AddBar(hTask,"Task",#1/2/2001#,#1/5/2001#)
		.DefineSummaryBars(hSummary,"",hTask,"")
		hTask = .AddItem("Task B")
		.AddBar(hTask,"Task",#1/4/2001#,#1/8/2001#)
		.DefineSummaryBars(hSummary,"",hTask,"")
	End With
End With

Dim h
With Exg2antt1
	.BeginUpdate()
	.DefaultItemHeight = 24
	.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
	With .Chart
		.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
		.NonworkingDays = 0
		.set_PaneWidth(False,128)
		.FirstVisibleDate = #1/1/2001#
		.Bars.Item("Task").Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternSolid
	End With
	.Columns.Add("Column")
	With .Items
		h = .AddItem("Solid A")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"A")
		.AddBar(h,"Task",#1/5/2001#,#1/7/2001#,"B")
		.set_ItemBar(h,"B",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,255)
		.AddBar(h,"Task",#1/8/2001#,#1/10/2001#,"C")
		.set_ItemBar(h,"C",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,65280)
		h = .AddItem("Solid B")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"A")
		.set_ItemBar(h,"A",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarBackColor,255)
		.AddBar(h,"Task",#1/5/2001#,#1/7/2001#,"B")
		.set_ItemBar(h,"B",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,255)
		.set_ItemBar(h,"B",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarBackColor,65280)
		.AddBar(h,"Task",#1/8/2001#,#1/10/2001#,"C")
		.set_ItemBar(h,"C",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,16711680)
		.set_ItemBar(h,"C",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarBackColor,16711935)
	End With
	.EndUpdate()
End With

With Exg2antt1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAEGg4BNUMQAAYAQGKIYBkAKBQAGaAoDDMOQ4QwAAxDCKsEwsACEIrjKCRShyCYZRhGcTALD8EhhECTZKkAYQEiKLoaRzAcwyDAcQRFCKUJxhEYZa" & _
"i+NobSBQMZqBQgASIUCLZ5ACSYEigAovTULCKwJiWNZDUTRcTxCKQahLLivIhGUYKfgmY5lT5VUT1HS9IShJSmKTlORLOi+M4zUJLc4SVblGz7FyfYDBKygLqqFigLAx" & _
"dDYTRNfzjHiTKbtGA7MADA4DVTAeC2bC+EYVTytY4sHQrIACZ5iWREMhXTi0E4rTa6dTxaS6KzKGqsZbsNAbHLdHTfVy1Mx1XaobqDJZdaTpdjaTDeJSjVjKdx4TZqSi" & _
"zjSGJOgcU4RhcIQDDURhIESXwEGgbQJBQQjeggQBiC4NJAluGJrAUB5Lmmc56n4Pp/i+NQjmqdQ5k2J5+AGAAgCgFgEgAHxQAGfoBmAOA2AaAxghgLgOgMIJ4AoER8mE" & _
"WBSBoNohHKAgZgSYgIHYH4ImCB5OAqBghjiEgcgmIQoioD4IiKGJGCsUgUHiVirmOBQVAEgI=")
		.Add(39,"CP:1 -1 -1 0 0")
		.Add(40,"gBFLBCJwBAEHhEJAEGg4BEcMQAAYAQGKIYBkAKBQAGaAoDDMOQ4QwAAxDCKsEwsACEIrjKCRShyCYZRhGcTAFD8EhhECTZKkAZwEiKLoaRzAcwyDAcQRFCKUJxlKa5P" & _
"jaLwAAbJMZKAqDDgBIijIqnKA5JoyKIkTzCIJxXScByDGqNaQoehYXhEMg1CTXVgRCKoYTDBKybLqGT6VoCP5vWJaURWHZFTTJOyNagmSJ6XACbQMW7gNYQGBEEigNIx" & _
"ToOU4jFDGIB2VAQRK5BDQbQSFCpIRCCRQYhcQJ6YIAD76HomS5NU7UNKhHSdMy3J6ra5sOqbBqWa5LWjbNq3DadSzvPKub5vexwHwWawSUDkOR5Li+M43S4JPS5bZdDx" & _
"PiWVJrnWOw9F6XxTiGWpsHcO5+C6Xx7kOZpwHoOxeF8T4fkeYJgnEdZwOwQRBnSex9H6f4vk+c5xn4fZQhQBCAg==")
		.Add(41,"gBFLBCJwBAEHhEJAEGg4BQICg6AADACAxRDAMkOQAGaAoDDUMQyQwAAxDSK8EwsACEIrjKCRShyCYZRhGcTALBMIwKGABIRGUZJGDkOYgDCBEhTHDUOwHGyQYDkCQoR" & _
"iYMAwTBQMaTXDdCQ1ECkJomObqAgkMZCTbKMySAA0NgPD6sKSjOIRSDUJZcV5EoAKfiqZIRSJSMZVLLVNSVJipAAlOTZPo6JJuTLOE4WVRcSydH6oAApeg6KoYAFzQAE" & _
"DCbYgOTKBYLUOCwTZmDwTK6BcTtXDbejeYYcZ7DNj2NYtJ4TRCBcpzLLIXrCKg0TBPQ4YNC2DT5VDWIq1aDdQo7MpxWjlGI5Ri2c51UDSYi0G4tDyLSYWXDfFSQTrHDQ" & _
"XhAAghCUAxJgyaB1DkGRyDCKBhAiGwLg0DYhCKDI8CcVwIAwRotBeAYCCmBZ0nsfR+n+L5PlYE53BwTpzn4AIAiAGAOAMfZfmeVBwDuD54C4DYDCCaA6AgQJfHGPJtD+" & _
"YRoGIF4GGGrAAH2RpjjCf4IGIOIKCSCQhmeXBtDqT54i4LYLCKaI6CkfRGlOKgtg2IxYl4OoMkwIYwmkP5jmkAg/hAZAYnAaw6A+eQeEmEgkikKg8BqDkYFCFIlBkThT" & _
"g8BoThif4WGWORqFyFwjkGIJlD+ZgphIY4ZGYWYEmSGQmjGIhthvMpwGcOJPnmTh1h0JxploPAZg4I5+HyH4nlmfh/g8BhTgSf4hGgegagiIlShCYA/miahCg+JBpUIY" & _
"w3k+ehehmJgpioaoWDeKYagAY4oioSZFn2BQfFGCJdD+aoqjKK4rGqWJwGENwPnqTo1i1gtiBgDYzn6PIviuWp+j+DwFnMaJ/jEbB7BqSIyCOQR4lkP5smsQpPjQbQbD" & _
"SWI0C0cR6lmNpqGMCgJDCBZTFyf44G4O4KmSOWTnCVg/m6K4ymuOxu4OWw1E+e5OnWPQvGvYgWg0Q5+nyP4vlvE+OBMTJ/kEcB8BsCJCDATArA6QhxAgeIgkScRMFcFp" & _
"FlCFAEICA")
		.Add(42,"gBFLBCJwBAEHhEJAEGg4BY8MQAAYAQGKIYBkAKBQAGaAoDDMOQ4QwAAwjQLMEwsACEIrjKCRShyCYZRhGcTALD8EhhECTZKkAYgEiKLoaRzAcwyDAcQRFCKUJxhEY5a" & _
"i+NobRCAUiwHQUBr/I4AKLfeJ5dACKYNShRMrSABMNgZBKpJAqKiqJoiFoRDINIi2BYUIhqGCxYRseyZegmEYWVTREr3HKsVTtAanjZSJakXxnGaQJ7jKaLXo6II8YTI" & _
"WBABaIAQiBahQArOiKchaTZ5YheFRYVBOG4bK6BcguW4qGxSXpuRxZOo2YAFVzNNC3YzkCIcegnIp9ZxeFK5Tg1Z4XKTaNwqPBcYpHPqdVhCOgYZwUb5XMjWNatLYIbo" & _
"ziiUhzCAeJeG6ZAAAiBIUA0JgziGVJkGUGJIBgUYSBEN5VBoGxCEUHItjSFAxBcRhim4dIqFGTB+BUfxfneegAgCYAoBQFR+lQeASAEBRIGESAogMYJ4DoEIEmCaAqAo" & _
"JoGGCbgYgaIYYG4HoHGICByCKAoKmGZBOgkYh4hoKIKmKKI2CmC5giMBINBgY0AjODRjgiXg6g2I8glUKAHEifhBhAJApBYRIRmQOQmAoOgLBIEhMhOJJZD4UoUGUSRC" & _
"FaAoOHKPIAhYZY5GoXIXmWaYGF2GJlgKMB9DmZhpiIZ4aGaSYuG6GomigWgGDmCohmYdIdicWZeHqHRnCgHgIh8aAIBoCA/lAECAg")
	End With
	.Appearance = &H28000000
	.BackColor = Color.FromArgb(255,255,255)
	.BackColorLevelHeader = Color.FromArgb(255,255,255)
	.BackColorHeader32 = &H27000000
	.SelBackColor = Color.FromArgb(0,0,0)
	.SelForeColor = Color.FromArgb(255,255,255)
	With .Chart
		.BackColorLevelHeader32 = &H27000000
		.BackColor = Color.FromArgb(255,255,255)
		.Bars.Item("Task").Color32 = &H2a000000
	End With
	.FilterBarBackColor32 = &H1000000
	.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exCursorHoverColumn,&H29000000)
	.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exToolTipAppearance,&H1000000)
	.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exSplitBar,&H1000000)
	.EndUpdate()
End With

With Exg2antt1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exHeaderFilterBarButton,&H1000000)
	.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exSplitBar,&H1ff0000)
End With

Dim h
With Exg2antt1
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.set_PaneWidth(False,64)
	End With
	.Columns.Add("Column")
	With .Items
		h = .AddItem("Item 1")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"")
		.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption,"<sha ;;0>Event <b><font ;6><off -6>2<off 4>3<off 4>1")
		.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption,18)
	End With
End With

With Exg2antt1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	With .Columns
		.Add("Column 1")
		.Add("Column 2")
	End With
	.BackColorHeader32 = &H1000000
	.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exCursorHoverColumn,&H12d86ff)
End With

With Exg2antt1
	.ColumnAutoResize = False
	With .Columns
		.Add("Column 1")
		.Add("Column 2").Visible = False
	End With
	.VisualAppearance.Add(2,"c:\exontrol\images\normal.ebn")
	.VisualAppearance.Add(3,"c:\exontrol\images\pushed.ebn")
	.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exColumnsFloatAppearance,&H2000000)
	.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exColumnsFloatBackColor,&H3000000)
	.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exColumnsFloatCaptionBackColor,Color.FromArgb(246,245,240))
	.ColumnsFloatBarVisible = exontrol.EXG2ANTTLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeHiddenColumns
End With

With Exg2antt1
	.ColumnAutoResize = False
	With .Columns
		.Add("Column 1")
		.Add("Column 2").Visible = False
	End With
	.VisualAppearance.Add(3,"c:\exontrol\images\pushed.ebn")
	.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exColumnsFloatBackColor,&H3000000)
	.ColumnsFloatBarVisible = exontrol.EXG2ANTTLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeHiddenColumns
End With

With Exg2antt1
	.VisualAppearance.Add(2,"c:\exontrol\images\normal.ebn")
	.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exColumnsFloatAppearance,&H2000000)
	.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exColumnsFloatBackColor,Color.FromArgb(246,245,240))
	.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exColumnsFloatCaptionBackColor,Color.FromArgb(246,245,240))
	.ColumnsFloatBarVisible = exontrol.EXG2ANTTLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeHiddenColumns
End With

With Exg2antt1
	.ColumnAutoResize = False
	With .Columns
		.Add("Column 1")
		.Add("Column 2").Visible = False
	End With
	.ColumnsFloatBarVisible = exontrol.EXG2ANTTLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeHiddenColumns
End With

With Exg2antt1
	.ColumnAutoResize = False
	With .Columns
		.Add("Column 1")
		.Add("Column 2").Visible = False
		With .Add("Column 3")
			.Visible = False
			.Enabled = False
		End With
	End With
	.ColumnsFloatBarVisible = exontrol.EXG2ANTTLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeHiddenColumns
End With

With Exg2antt1
	.ColumnAutoResize = False
	With .Columns
		.Add("Column 1")
		.Add("Column 2").Visible = False
		With .Add("Column 3")
			.Visible = False
			.AllowDragging = False
		End With
	End With
	.ColumnsFloatBarVisible = exontrol.EXG2ANTTLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeHiddenColumns
End With

With Exg2antt1
	.ColumnAutoResize = False
	With .Columns
		.Add("Column 1")
		.Add("Column 2").Visible = False
	End With
	.set_Description(exontrol.EXG2ANTTLib.DescriptionTypeEnum.exColumnsFloatBar,"Hidden Columns")
	.ColumnsFloatBarVisible = exontrol.EXG2ANTTLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeHiddenColumns
End With

With Exg2antt1
	.ColumnAutoResize = False
	With .Columns
		.Add("Column 1")
		.Add("Column 2").Visible = False
	End With
	.ColumnsFloatBarVisible = exontrol.EXG2ANTTLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeHiddenColumns
End With

With Exg2antt1
	With .Columns
		.Add("Column 1")
		.Add("Column 2")
	End With
	.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exCursorHoverColumn,-1)
End With

With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Column")
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
	End With
	.Layout = "Select=""0"";SingleSort=""C0:2"";Columns=1"
	.EndUpdate()
End With

With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Column")
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
	End With
	.Layout = "gBjAAwAAuABmABpABsAB0ABlAByhoAPIAOEPAA9gYABoABQAgUEg0XN4AOcJicKkpujMbjsfkMFk0YhkQgUOjUEl8gjcGO0ok8KMULjEaGMcj08kQAO8oMkTNEtGwAG" & _
"QAqc7gUlhh1ABtAEsk9GpEfhElgVcsMupNlnlonlaAFcr0shUsp8QPEtnVJqJhmcIhUMh0QiU5sYAqMngUSuEMw07k8Qv0SgVRrNEuVflF2jF5x9JyNEm0TjQijemyE0" & _
"jE3t+YruauoAu4Az1qj9BzRn0UzksSnAA0xDjY6qnAw8OiUQ0dwzN0zWz2t7j8/xURAGNvWH6k8xlEhklhEI0O/6QAgI="
	.EndUpdate()
End With

With Exg2antt1
	.BeginUpdate()
	.ColumnAutoResize = False
	.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
	With .Columns
		With .Add("C0")
			.ExpandColumns = "1,2"
			.DisplayExpandButton = False
		End With
		.Add("C1")
		.Add("C2")
		.Add("C3")
		With .Add("C4")
			.ExpandColumns = "5,6"
			.DisplayExpandButton = False
		End With
		.Add("C5")
		With .Add("C6")
			.ExpandColumns = "6,7"
			.DisplayExpandButton = False
		End With
		.Add("C7")
	End With
	.EndUpdate()
End With

With Exg2antt1
	.BeginUpdate()
	.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
	.BackColorLevelHeader = Color.FromArgb(240,240,240)
	With .Columns
		With .Add("Photo")
			.AllowSizing = False
			.Width = 32
		End With
		.Add("Personal Info")
		.Add("Title")
		.Add("Name")
		.Add("First")
		.Add("Last")
		.Add("Address")
		.Item("Personal Info").ExpandColumns = "2,3"
		With .Item("Name")
			.ExpandColumns = "4,5"
			.Expanded = False
		End With
	End With
	.EndUpdate()
End With

With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.set_PaneWidth(False,128)
		.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
		.UnitWidth = 50
		.FirstVisibleDate = #1/1/2013#
		.LevelCount = 2
		.get_Level(0).Label = 4096
		.get_Level(1).Label = "<%h%>:<%nn%>"
		.get_Level(1).Unit = exontrol.EXG2ANTTLib.UnitEnum.exMinute
		.get_Level(1).Count = 60
		.ResizeUnitScale = exontrol.EXG2ANTTLib.UnitEnum.exMinute
		.ResizeUnitCount = 15
		.AllowInsideZoom = True
		With .DefaultInsideZoomFormat
			.InsideCount = 5
			.InsideUnit = exontrol.EXG2ANTTLib.UnitEnum.exMinute
			.InsideLabel = "<%nn%>"
		End With
	End With
	With .Items
		.AddItem("Item")
	End With
	.EndUpdate()
End With

With Exg2antt1
	.Chart.set_PaneWidth(True,0)
	With .Columns
		.Add("Default")
		With .Add("Format.1")
			.ComputedField = "%0"
			.FormatColumn = "dateF(value) replace `/` with `-`"
		End With
		With .Add("Format.2")
			.ComputedField = "%0"
			.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueFormat,1)
			.FormatColumn = "`<b>`+ shortdate(value) + `</b> ` + timeF(value)"
		End With
		With .Add("Format.3")
			.ComputedField = "%0"
			.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueFormat,1)
			.FormatColumn = "` <b>`+ ( weekday(value) case ( 0 : `Su`; 1 : `Mo`; 2 : `Tu`; 3 : `We`; 4 : `Th`; 5 : `Fr`; 6 : `Sa`) ) + `</b> ` + ( dateF(val" & _
"ue) replace `/` with `-` )"
		End With
	End With
	With .Items
		.AddItem(#1/1/2001 10:00:00 AM#)
		.AddItem(#1/2/2001 10:00:00 AM#)
	End With
End With

Dim h1
With Exg2antt1
	.BeginUpdate()
	.AntiAliasing = True
	With .Chart
		.FirstVisibleDate = #12/26/2000#
		.set_PaneWidth(False,128)
	End With
	.Columns.Add("Column")
	With .Items
		h1 = .AddItem("Item 1")
		.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"A")
		.set_ItemBar(h1,"A",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption,"text")
		h1 = .AddItem("Item 2")
		.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"A")
		.set_ItemBar(h1,"A",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption,"text outside associated with a bar")
		.set_ItemBar(h1,"A",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption,18)
		h1 = .AddItem("Item 3")
		.AddBar(h1,"",#1/2/2001#,#1/2/2001#,"A")
		.set_ItemBar(h1,"A",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption,"text with no bar associated")
		h1 = .AddItem("Item 4")
		.AddBar(h1,"Task",#1/2/2001#,#1/5/2001#,"A")
		h1 = .AddItem("Item 5")
		h1 = .AddItem("Item 6")
		h1 = .AddItem("Item 7")
		h1 = .AddItem("Item 8")
		.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"A")
		h1 = .AddItem("Item 8")
		.AddBar(h1,"Task",#1/2/2001#,#1/6/2001#,"A")
	End With
	With .Chart.Notes
		.Add("1S",Exg2antt1.Items.get_ItemByIndex(3),"A","<font ;6>Movable Note Inside the Bar").set_PartCanMove(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,True)
		.Add("AK",Exg2antt1.Items.get_ItemByIndex(6),#1/6/2001#,"Note associated with a date: <%mm%>/<%dd%>/<%yyyy%>")
		With .Add("2S",Exg2antt1.Items.get_ItemByIndex(7),"A","<font ;6>Fixed Note Left")
			.ShowLink = exontrol.EXG2ANTTLib.NoteLinkTypeEnum.exNoteLinkHidden
			.set_PartVOffset(exontrol.EXG2ANTTLib.NotePartEnum.exNoteEnd,0)
			.set_PartHOffset(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,-32)
			.set_PartShadow(exontrol.EXG2ANTTLib.NotePartEnum.exNoteEnd,False)
			.set_PartBackColor(exontrol.EXG2ANTTLib.NotePartEnum.exNoteEnd,Color.FromArgb(255,255,0))
		End With
		With .Add("3S",Exg2antt1.Items.get_ItemByIndex(8),"A","Start<br><%mmm%> <%d%> <%yyyy%>")
			.set_PartCanMove(exontrol.EXG2ANTTLib.NotePartEnum.exNoteEnd,True)
			.set_PartHOffset(exontrol.EXG2ANTTLib.NotePartEnum.exNoteEnd,-64)
			.LinkStyle = exontrol.EXG2ANTTLib.LinkStyleEnum.exLinkDot
			.LinkWidth = 2
			.LinkColor = Color.FromArgb(0,0,255)
		End With
		With .Add("3F",Exg2antt1.Items.get_ItemByIndex(8),"A","End<br><%mmm%> <%d%> <%yyyy%>")
			.RelativePosition = 1
			.set_PartCanMove(exontrol.EXG2ANTTLib.NotePartEnum.exNoteEnd,True)
			.LinkStyle = exontrol.EXG2ANTTLib.LinkStyleEnum.exLinkDot
			.LinkWidth = 2
			.LinkColor = Color.FromArgb(0,0,255)
		End With
	End With
	.EndUpdate()
End With

Dim h1,h2,h3
With Exg2antt1
	.Debug = True
	.Chart.FirstVisibleDate = #1/1/2001#
	.Columns.Add("Column")
	With .Items
		h1 = .AddItem("Item 1")
		.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"A")
		h2 = .AddItem("Item 2")
		.AddBar(h2,"Task",#1/3/2001#,#1/5/2001#,"B")
		h3 = .AddItem("Item 3")
		.AddBar(h3,"Task",#1/5/2001#,#1/7/2001#,"A")
		.set_ItemBar(h3,"A",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarParent,h1)
		Debug.Print( "The Bar A of H3 fails to change the parent to H1 as it has already a bar named A" )
		.set_ItemBar(h3,"A",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarParent,h2)
		Debug.Print( "The Bar A of H3 can be moved to H2, as it contains no bars with the key A" )
	End With
End With

Dim h
With Exg2antt1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAEGg4BS4Dg6AADACAxRDAMgBQKAAzQFAYbBmGaGAAGIZhQgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDKAkRRdDSOYDmGQYDiCIoRShOMIjR" & _
"LUXxtDYEIRkSZYJAKCTtBwJAAURRULR6ACUYDnSRqGj6CQKRqEVBSLAdKyXJKvaZhGIRSDUJZkWZEIyjBY8EzXNqrIDoGKqYgOQ4XV5TFgxPR9IyhEAaLrleT5TjOII/" & _
"RpOEpYXSVHxFRAAAYhG4wABCXAAXjYF5Udhlfx3FCvMbqeCcSgOWoDZZRFa0PjVQQtNC4IitGzrMqrNaDSBlGigBauKw3TKlMzye7repOA5+aJGVz7VgfGz7EDjKg0GJ" & _
"cgMex3lOZB5jgPYHHMaYxjeRBilWbZNG4B49l2do6hkfIhECUhjDoHROEYUYMgEbQMCEEx+lGIY0CQUQJHYGoUgQGBFkgB4FmkOINiMbBrAwQoxngSQMCCYJAG8DYCkM" & _
"ZJNDOAhAHCbYGGGOBqByB5hiMcJSDORhwjQKoEkKSIgHoEZEDgWJOECSwyGSGwjkWUJUh8HADiiXA6CSRgQliFwcgcSICB2EJkCKDIAB4CAxDgMoOiOIkfA4CoiDCDhA" & _
"mUEg4hEF4DHKCByA8JYpHIWwbAMIIuC6EIkCiOBwA2QpSHQbgOkoIZMD2GxmnmOhVhUJQiEwYAOAoQZQD6HhnjmaIfBuQ5BlQPQLiMEhuEKIRHmEKA7h+Q5ChQdQPmia" & _
"hCg+JBnDAAhVCVPpoicHYEAobodicKZqHqGAO0YNA0ikQxKg6IYnAqAZcEGKxqnqOowiUZRSFwYwPAqIZkEOLhrjqaIqB4BAqn6QYwCwKwWkSMZECKLo6jKBA7DKTItW" & _
"EZBlA8SpRmwRY1G0exYi0HoEEsbpdjcLZrgaYI4kQQo6laOYEFuIpojQCJiHAZgPksAZ0EePBvDuSp0j2bxrmadY+m8QpGnKP4EHwAwAjsCZxiQQQtAgAQrAiQowhKUB" & _
"/BIcJsEMD5EHETBPBYEhLFwJwZBKMY8G6bAoEaIQMjcIIEkzUZJAscgEEuShyjyKwskucpskQSwuDITJQEyTYzGuMIjBsBBCmiBATjObQDD+UB0E0DxGlCNINASO5PnS" & _
"MQ7E2Uxu3CbQRguUgYFCVR1H0WxYC2R5xDSDgVWiXA8AyNggksXwPDWQQ3FgL4IHERxsluNpdj6bAqAacQckAEQBQWxfDzF4BUYYqBKhEEQNMDgPQGhFGIDgVwKR3iiC" & _
"iIIIgig+BfA2MYOLtAqA4ESCYDIFgVDyGEKkPAQgFBDDwG4DYnQzg5GiDIOAZw3hCDoA8MQIA9PeGEHkRIyx6jiOMEoTAxRMhoCeIwUQKSbCKH6NgV43AECyFeEkEQdB" & _
"TAxC0FESQYhgB+DGPcTwYBXBZEeCIOoKg5j6EIJAbQNxJCjCAMAJwDRxghA4DEBYpk1hnHwH4DIxg3AaFGGgMQFwHhBHgGkewhhCDIHMDkDY0AlAGEAIAgIA=")
		.Add(2,"c:\exontrol\images\normal.ebn")
		.Add(3,"CP:2 2 -4 2 4")
	End With
	With .Chart
		.set_PaneWidth(False,256)
		.LevelCount = 2
		.FirstVisibleDate = #1/1/2001#
	End With
	.Columns.Add("Info")
	With .Items
		h = .AddItem("Range Moveable Frame")
		.AddBar(h,"Task",#1/4/2001#,#1/8/2001#,"F")
		.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip,"This bar can be moved inside the displayed range.")
		.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarMinStart,#1/2/2001#)
		.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarMaxEnd,#1/18/2001#)
		.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarShowRange,32)
		.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarShowRangeTransparent,90)
		h = .AddItem("Range Moveable Pattern")
		.AddBar(h,"Task",#1/6/2001#,#1/10/2001#,"F")
		.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip,"This bar can be moved inside the displayed range.")
		.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarMinStart,#1/2/2001#)
		.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarMaxEnd,#1/18/2001#)
		.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarShowRange,1)
		.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarShowRangeTransparent,90)
		h = .AddItem("Range Moveable EBN Transparent")
		.AddBar(h,"Task",#1/8/2001#,#1/12/2001#,"F")
		.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip,"This bar can be moved inside the displayed range.")
		.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarMinStart,#1/2/2001#)
		.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarMaxEnd,#1/18/2001#)
		.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarShowRange,16777216)
		.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarShowRangeTransparent,50)
		h = .AddItem("Range Moveable EBN Opaque 1")
		.set_ItemHeight(h,24)
		.AddBar(h,"Task",#1/10/2001#,#1/14/2001#,"F")
		.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip,"This bar can be moved inside the displayed range.")
		.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarMinStart,#1/2/2001#)
		.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarMaxEnd,#1/18/2001#)
		.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarShowRange,33554432)
		h = .AddItem("Range Moveable EBN Opaque 2")
		.set_ItemHeight(h,24)
		.AddBar(h,"Task",#1/12/2001#,#1/16/2001#,"F")
		.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip,"This bar can be moved inside the displayed range.")
		.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarMinStart,#1/2/2001#)
		.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarMaxEnd,#1/18/2001#)
		.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarShowRange,50331648)
	End With
	.EndUpdate()
End With

With Exg2antt1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAEGg4BK8IQAAYAQGKIYBkAKBQAGaAoDDYMwzQwAAxDMKEEwsACEIrjKCRShyCYZRhGcTAFD8EhhECTY4lCQJAiKLoeQLHMBybJ8LwiGQaRJmeaYR" & _
"DUMI6QjPVARVIkaxhCSSaKpIAIBEB")
	End With
	With .Chart
		.set_PaneWidth(False,0)
		.FirstVisibleDate = #1/1/2008#
		.MarkTodayColor = .BackColor
		.LevelCount = 2
		.AllowSelectDate = exontrol.EXG2ANTTLib.SelectDateEnum.exNoSelectDate
		.MarkSelectDateColor32 = &H1000000
		.SelectLevel = 1
		.set_SelectDate(#1/15/2008#,True)
		.set_SelectDate(#1/18/2008#,True)
	End With
	.EndUpdate()
End With

With Exg2antt1
	.BeginUpdate()
	With .Chart
		.set_PaneWidth(False,0)
		.FirstVisibleDate = #1/1/2008#
		.MarkTodayColor = .BackColor
		.LevelCount = 2
		.AllowSelectDate = exontrol.EXG2ANTTLib.SelectDateEnum.exNoSelectDate
		.MarkSelectDateColor32 = &H7fff0000
		.SelectLevel = 1
		.set_SelectDate(#1/15/2008#,True)
		.set_SelectDate(#1/18/2008#,True)
	End With
	.EndUpdate()
End With

' FilterChange event - Occurs when the filter was changed.
Private Sub Exg2antt1_FilterChange(ByVal sender As System.Object) Handles Exg2antt1.FilterChange
	With Exg2antt1
		Debug.Print( "If negative, the filter is present, else not" )
		Debug.Print( .Items.VisibleItemCount )
	End With
End Sub

Dim h
With Exg2antt1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.TreeColumnIndex = -1
	.FilterInclude = exontrol.EXG2ANTTLib.FilterIncludeEnum.exMatchingItemsOnly
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = exontrol.EXG2ANTTLib.FilterTypeEnum.exFilter
		.Filter = "C1"
	End With
	With .Items
		h = .AddItem("R1")
		.InsertItem(h,Nothing,"C1")
		.InsertItem(h,Nothing,"C2")
		.set_ExpandItem(h,True)
		h = .AddItem("R2")
		.InsertItem(h,Nothing,"C1")
		.InsertItem(h,Nothing,"C2")
	End With
	.ApplyFilter()
	.EndUpdate()
End With

Dim h
With Exg2antt1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.TreeColumnIndex = -1
	.FilterInclude = exontrol.EXG2ANTTLib.FilterIncludeEnum.exMatchingItemsOnly
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = exontrol.EXG2ANTTLib.FilterTypeEnum.exFilter
		.Filter = "C1|C2"
	End With
	With .Items
		h = .AddItem("R1")
		.InsertItem(h,Nothing,"C1")
		.InsertItem(h,Nothing,"C2")
		.set_ExpandItem(h,True)
		h = .AddItem("R2")
		.InsertItem(h,Nothing,"C1")
		.InsertItem(h,Nothing,"C2")
	End With
	.ApplyFilter()
	.EndUpdate()
End With

Dim h
With Exg2antt1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.FilterInclude = exontrol.EXG2ANTTLib.FilterIncludeEnum.exMatchingItemsOnly
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = exontrol.EXG2ANTTLib.FilterTypeEnum.exFilter
		.Filter = "C1|C2"
	End With
	With .Items
		h = .AddItem("R1")
		.InsertItem(h,Nothing,"C1")
		.InsertItem(h,Nothing,"C2")
		.set_ExpandItem(h,True)
		h = .AddItem("R2")
		.InsertItem(h,Nothing,"C1")
		.InsertItem(h,Nothing,"C2")
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Pattern")
	With .Chart
		.FirstWeekDay = exontrol.EXG2ANTTLib.WeekDayEnum.exMonday
		.FirstVisibleDate = #1/24/2008#
		.set_PaneWidth(False,52)
		.LevelCount = 2
	End With
	With .Items
		.AddItem("Default")
		.set_ItemNonworkingUnits(.AddItem("1/26/2008"),False,"weekday(value) case (default:0 ; 0:1; 6:(value != #1/26/2008#))")
		.set_ItemNonworkingUnits(.AddItem("1/27/2008"),False,"weekday(value) case (default:0 ; 0:(value != #1/27/2008#); 6:1)")
		.set_ItemNonworkingUnits(.AddItem("Sundays"),False,"weekday(value) = 0")
	End With
	.EndUpdate()
End With

With Exg2antt1
	.BeginUpdate()
	.ScrollBars = exontrol.EXG2ANTTLib.ScrollBarsEnum.exDisableBoth
	.Chart.ToolTip = ""
	.set_ScrollPartVisible(exontrol.EXG2ANTTLib.ScrollBarEnum.exVScroll,exontrol.EXG2ANTTLib.ScrollPartEnum.exExtentThumbPart,True)
	.set_ScrollPartVisible(exontrol.EXG2ANTTLib.ScrollBarEnum.exHScroll,exontrol.EXG2ANTTLib.ScrollPartEnum.exExtentThumbPart,True)
	.set_ScrollPartVisible(exontrol.EXG2ANTTLib.ScrollBarEnum.exHChartScroll,exontrol.EXG2ANTTLib.ScrollPartEnum.exExtentThumbPart,True)
	.ScrollWidth = 4
	.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exVSBack,Color.FromArgb(240,240,240))
	.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exVSThumb,Color.FromArgb(128,128,128))
	.ScrollHeight = 4
	.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exHSBack,.get_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exVSBack))
	.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exHSThumb,.get_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exVSThumb))
	.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exScrollSizeGrip,.get_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exVSBack))
	.EndUpdate()
End With

Dim h
With Exg2antt1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAEGg4BNACg6AADACAxRDAMgBQKAAzQFAYbhsGCGAAGEZBQgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDEAkRRdDSOYDmGQYDiCIoRShOMaTV" & _
"J8bQ2ASEaAmWK3boUAJFPrFc6ABJMZRRISXJABeKwRoGJYaUhRdDRNCIZBqEqua7iEZRQqCCZkWZPNTRVScByhF61IDpWjKLDKJJwXBMcxyBL0NRxFTAKawGoYbq0AJQ" & _
"VTQcZPVhgAYYfSlMDuOB5Gq+G5SQjhWIgBjde4dRrHYrsGyQAp7JJoWLZMQyFIFIYNTS8LgpPI6LyyP5rABhWw5PiUVyfWTMdwzPatbyKHJicbpepWPxcNYtNzcNb3SA" & _
"bn+KgAmqP5yDiIAACIEhQDSGJOgcU4RhQYwgFUQwIESXxEGgbQJBQQhzHmUAAGILh0lWbpEGIIQQHuegaAaoRYBUBYBCgFAOAOQJgC4CgCCCQAUAQARACgRZFEa3ogCc" & _
"CICDCDZ9AeH5wGgFoHmAUBIA6CJgiALgMAIABYiYER+BuMIyC4CZjAcYgygyYxIlYNoNBGMJGDoCximiXg+g+Yx0G0DgNiOIJGECEZkgQbA7A8A5JA4SITmOZBsEGFJD" & _
"kkLhQhXOItBYEZEGEHBCBARApGIYh1EAaIoAMQIEkENBNBGZpJg4YgCGcAAaGUAAFCmVhqBMZppGADQDACQAmAwAAFgoBh1BSJ4ZFwEEdHmcFmgWag2gEFhoFlINYkoH" & _
"AQAABhKGQX4jGkGQ8BiJ5BDqBAABqKl1GSJxkgAcoqAYAR3lQcIrkaOoSiiEZCBCBAgiqAaJHaLpHBqQoliaBZxHwWYwkUQRMFQExEmENBJBIRIBAgQwQkOYJ0D4DhDg" & _
"CYAzjWQpgjwLgKi2QIWl4CACADeofC4SpsHcHArlqRBqBkbpLAaQoxAUQRQE6PLoCaT40AOYJ6lWNdXlAL4/m2QIql4CRAAQBCAg=")
		.Add(2,"CP:1 -4 -4 4 4")
	End With
	.Columns.Add("Task")
	.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.set_PaneWidth(False,128)
		.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
	End With
	With .Items
		.AddBar(.AddItem("Task"),"Task",#1/2/2001#,#1/5/2001#,"K1")
		h = .AddItem("Task/ EBN Frame")
		.set_ItemHeight(h,32)
		.AddBar(h,"Task",#1/3/2001#,#1/15/2001#,"K2")
		.set_ItemBar(h,"K2",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarFrameColor,33554432)
		h = .AddItem("Task/ EBN Frame")
		.set_ItemHeight(h,32)
		.AddBar(h,"Task",#1/3/2001#,#1/15/2001#,"K2")
		.set_ItemBar(h,"K2",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarFrameColor,50331392)
		.AddBar(.AddItem("Task"),"Task",#1/2/2001#,#1/5/2001#,"K3")
	End With
	.EndUpdate()
End With

Dim h
With Exg2antt1
	.BeginUpdate()
	With .Columns
		.Add("Tasks")
		With .Add("Duration")
			.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty,513)
			.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarKey,"A")
		End With
		With .Add("Working")
			.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty,258)
			.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarKey,"A")
		End With
	End With
	.Items.AllowCellValueToItemBar = True
	With .Chart
		.set_PaneWidth(False,256)
		.FirstVisibleDate = #1/3/2002#
		.LevelCount = 2
	End With
	With .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",#1/4/2002#,#1/8/2002#,"A")
	End With
	.EndUpdate()
End With

' BarResize event - Occurs when a bar is moved or resized.
Private Sub Exg2antt1_BarResize(ByVal sender As System.Object,ByVal Item As Integer,ByVal Key As Object) Handles Exg2antt1.BarResize
	With Exg2antt1
		.Refresh()
	End With
End Sub

With Exg2antt1
	.BeginUpdate()
	With .Columns.Add("<fgcolor=FF0000>Tasks > 2 days")
		.HTMLCaption = .Caption
	End With
	With .Columns.Add("PropertyBar")
		.Visible = False
		.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarKey,"")
		.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty,513)
	End With
	.Items.AllowCellValueToItemBar = True
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #1/1/2001#
		.set_PaneWidth(False,96)
		.NonworkingDays = 0
	End With
	With .ConditionalFormats.Add("%1 > 2")
		.ForeColor = Color.FromArgb(255,0,0)
		.Bold = True
	End With
	.SelBackColor = .BackColor
	.SelForeColor = .ForeColor
	With .Items
		.AddBar(.AddItem("Task 1"),"Task",#1/2/2001#,#1/4/2001#,"")
		.AddBar(.AddItem("Task 2"),"Task",#1/4/2001#,#1/7/2001#,"")
		.AddBar(.AddItem("Task 1"),"Task",#1/2/2001#,#1/4/2001#,"")
	End With
	.EndUpdate()
End With

' BarResize event - Occurs when a bar is moved or resized.
Private Sub Exg2antt1_BarResize(ByVal sender As System.Object,ByVal Item As Integer,ByVal Key As Object) Handles Exg2antt1.BarResize
	With Exg2antt1
		.Items.SchedulePDM(Item,Key)
		.Refresh()
	End With
End Sub

Dim h1,h2,h3,h4
With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Columns.Add("PropertyBar")
		.Visible = False
		.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarKey,"")
		.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty,269)
	End With
	.Items.AllowCellValueToItemBar = True
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.set_PaneWidth(False,48)
		.NonworkingDays = 0
	End With
	With .ConditionalFormats.Add("%1 != 0")
		.ForeColor = Color.FromArgb(255,0,0)
		.Bold = True
	End With
	.SelBackColor = .BackColor
	.SelForeColor = .ForeColor
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",#1/2/2001#,#1/4/2001#,"")
		.AddLink("L1",h1,"",h2,"")
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",#1/2/2001#,#1/4/2001#,"")
		.AddLink("L2",h2,"",h3,"")
		h4 = .AddItem("Task 3")
		.AddBar(h4,"Task",#1/2/2001#,#1/3/2001#,"")
		.AddLink("L3",h2,"",h4,"")
		.set_DefSchedulePDM(exontrol.EXG2ANTTLib.DefSchedulePDMEnum.exPDMCriticalPathBarColor,255)
		.set_DefSchedulePDM(exontrol.EXG2ANTTLib.DefSchedulePDMEnum.exPDMCriticalPathLinkColor,255)
		.SchedulePDM(0,"")
	End With
	.EndUpdate()
End With

With Exg2antt1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.set_PaneWidth(False,128)
		With .Bars
			.AddShapeCorner(12345,1)
			With .Copy("Milestone","Original")
				.StartShape = &H3020 Or exontrol.EXG2ANTTLib.ShapeCornerEnum.exShapeIconVBar Or exontrol.EXG2ANTTLib.ShapeCornerEnum.exShapeIconRight
				.StartColor32 = -1
			End With
			With .Copy("Milestone","Red")
				.StartShape = &H3020 Or exontrol.EXG2ANTTLib.ShapeCornerEnum.exShapeIconVBar Or exontrol.EXG2ANTTLib.ShapeCornerEnum.exShapeIconRight
				.StartColor = Color.FromArgb(255,0,0)
			End With
			With .Copy("Milestone","Green")
				.StartShape = &H3020 Or exontrol.EXG2ANTTLib.ShapeCornerEnum.exShapeIconVBar Or exontrol.EXG2ANTTLib.ShapeCornerEnum.exShapeIconRight
				.StartColor = Color.FromArgb(0,255,0)
			End With
		End With
	End With
	.Columns.Add("Column")
	With .Items
		.AddBar(.AddItem("Original"),"Original",#1/2/2001#,#1/2/2001#)
		.AddBar(.AddItem("Red"),"Red",#1/2/2001#,#1/2/2001#)
		.AddBar(.AddItem("Green"),"Green",#1/2/2001#,#1/2/2001#)
	End With
	.EndUpdate()
End With

With Exg2antt1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.Chart.FirstVisibleDate = #1/1/2001#
	With .Chart.Bars
		.AddShapeCorner(12345,1)
		With .Item("Milestone")
			.StartShape = &H3020 Or exontrol.EXG2ANTTLib.ShapeCornerEnum.exShapeIconVBar Or exontrol.EXG2ANTTLib.ShapeCornerEnum.exShapeIconRight
			.StartColor32 = -1
		End With
	End With
	.Columns.Add("Column")
	With .Items
		.AddBar(.AddItem("Item 1"),"Milestone",#1/2/2001#,#1/2/2001#)
	End With
End With

Dim h
With Exg2antt1
	.Chart.set_PaneWidth(False,128)
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Item")
		Exg2antt1.Chart.set_ItemBackColor(h,Color.FromArgb(0,255,0))
		Exg2antt1.Items.set_ItemBackColor(h,Color.FromArgb(0,255,0))
	End With
End With

' BarResize event - Occurs when a bar is moved or resized.
Private Sub Exg2antt1_BarResize(ByVal sender As System.Object,ByVal Item As Integer,ByVal Key As Object) Handles Exg2antt1.BarResize
	With Exg2antt1
		.Items.SchedulePDM(Item,Key)
	End With
End Sub

Dim h1,h2,h3,h4
With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.set_PaneWidth(False,48)
		.NonworkingDays = 0
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",#1/2/2001#,#1/4/2001#,"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",#1/2/2001#,#1/4/2001#,"K3")
		.AddLink("L2",h2,"K2",h3,"K3")
		h4 = .AddItem("Task 3")
		.AddBar(h4,"Task",#1/2/2001#,#1/3/2001#,"K4")
		.AddLink("L3",h2,"K2",h4,"K4")
		.set_DefSchedulePDM(exontrol.EXG2ANTTLib.DefSchedulePDMEnum.exPDMCriticalPathBarColor,255)
		.set_DefSchedulePDM(exontrol.EXG2ANTTLib.DefSchedulePDMEnum.exPDMCriticalPathLinkColor,255)
		.SchedulePDM(0,"K1")
	End With
	.EndUpdate()
End With

With Exg2antt1
	With .Chart
		.FirstWeekDay = .LocFirstWeekDay
		.MonthNames = .LocMonthNames
		.WeekDays = .LocWeekDays
		.AMPM = .LocAMPM
		.LevelCount = 2
		.set_PaneWidth(False,0)
		.UnitScale = exontrol.EXG2ANTTLib.UnitEnum.exDay
		With .get_Level(0)
			.Label = "<%mmmm%> <%d%>, <%loc_yyyy%> <r><%ww%>"
			.Unit = exontrol.EXG2ANTTLib.UnitEnum.exWeek
			.ToolTip = .Label
		End With
		.ToolTip = "<%ddd%> <%m%>/<%d%>/<%loc_yyyy%>"
	End With
	.set_Description(exontrol.EXG2ANTTLib.DescriptionTypeEnum.exFilterBarDateMonths,.Chart.MonthNames)
	.set_DefaultEditorOption(exontrol.EXG2ANTTLib.EditorOptionEnum.exDateMonths,.Chart.MonthNames)
End With

With Exg2antt1
	With .Chart
		.FirstWeekDay = .LocFirstWeekDay
		.MonthNames = .LocMonthNames
		.WeekDays = .LocWeekDays
		.AMPM = .LocAMPM
		.LevelCount = 2
		.set_PaneWidth(False,0)
	End With
End With

Dim h
With Exg2antt1
	With .VisualAppearance
		.Add(1,"C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task--.ebn")
		.Add(2,"C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task-.ebn")
		.Add(3,"C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task.ebn")
		.Add(4,"C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task+.ebn")
		.Add(5,"C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task++.ebn")
	End With
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.set_PaneWidth(False,128)
		.NonworkingDays = 0
		.Bars.Copy("Task","--").Color32 = &H1000000
		.Bars.Copy("Task","-").Color32 = &H2000000
		.Bars.Item("Task").Color32 = &H3000000
		.Bars.Copy("Task","+").Color32 = &H4000000
		.Bars.Copy("Task","++").Color32 = &H5000000
	End With
	.Columns.Add("Brightness")
	With .Items
		h = .AddItem("0%")
		.AddBar(h,"--",#1/2/2001#,#1/4/2001#,"--")
		.AddBar(h,"-",#1/5/2001#,#1/7/2001#,"-")
		.AddBar(h,"Task",#1/8/2001#,#1/10/2001#,"")
		.AddBar(h,"+",#1/11/2001#,#1/13/2001#,"+")
		.AddBar(h,"++",#1/14/2001#,#1/16/2001#,"++")
		h = .AddItem("25%")
		.AddBar(h,"--",#1/2/2001#,#1/4/2001#,"--")
		.AddBar(h,"-",#1/5/2001#,#1/7/2001#,"-")
		.AddBar(h,"Task",#1/8/2001#,#1/10/2001#,"")
		.AddBar(h,"+",#1/11/2001#,#1/13/2001#,"+")
		.AddBar(h,"++",#1/14/2001#,#1/16/2001#,"++")
		.set_ItemBar(h,"<*>",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarTransparent,25)
		h = .AddItem("50%")
		.AddBar(h,"--",#1/2/2001#,#1/4/2001#,"--")
		.AddBar(h,"-",#1/5/2001#,#1/7/2001#,"-")
		.AddBar(h,"Task",#1/8/2001#,#1/10/2001#,"")
		.AddBar(h,"+",#1/11/2001#,#1/13/2001#,"+")
		.AddBar(h,"++",#1/14/2001#,#1/16/2001#,"++")
		.set_ItemBar(h,"<*>",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarTransparent,50)
		h = .AddItem("75%")
		.AddBar(h,"--",#1/2/2001#,#1/4/2001#,"--")
		.AddBar(h,"-",#1/5/2001#,#1/7/2001#,"-")
		.AddBar(h,"Task",#1/8/2001#,#1/10/2001#,"")
		.AddBar(h,"+",#1/11/2001#,#1/13/2001#,"+")
		.AddBar(h,"++",#1/14/2001#,#1/16/2001#,"++")
		.set_ItemBar(h,"<*>",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarTransparent,75)
	End With
End With

Dim h
With Exg2antt1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	With .Chart
		.Bars.Item("Task").Color32 = &H1000000
		.FirstVisibleDate = #1/1/2001#
		.set_PaneWidth(False,128)
	End With
	.Columns.Add("Brightness")
	With .Items
		h = .AddItem("0%")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#)
		h = .AddItem("25%")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#)
		.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarTransparent,25)
		h = .AddItem("50%")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#)
		.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarTransparent,50)
		h = .AddItem("75%")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#)
		.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarTransparent,75)
	End With
End With

Dim h,h1,h2,h3
With Exg2antt1
	.BeginUpdate()
	.MarkSearchColumn = False
	.OnResizeControl = exontrol.EXG2ANTTLib.OnResizeControlEnum.exResizeChart
	.Columns.Add("Tasks")
	.Columns.Add("Start").Visible = False
	.Columns.Add("End").Visible = False
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #9/18/2006#
		.set_PaneWidth(False,64)
		.set_ScrollRange(exontrol.EXG2ANTTLib.ScrollRangeEnum.exStartDate,.FirstVisibleDate)
		.set_ScrollRange(exontrol.EXG2ANTTLib.ScrollRangeEnum.exEndDate,#12/31/2006#)
		.MarkSelectDateColor32 = &H7fff0000
		.SelectLevel = 1
		.set_SelectDate(#9/19/2006#,True)
		.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exNoCreateBar
		.AllowLinkBars = False
	End With
	With .Items
		h = .AddItem("Project")
		.set_CellValue(h,1,#9/21/2006#)
		.set_CellValue(h,2,#10/3/2006#)
		.AddBar(h,"Summary",.get_CellValue(h,1),.get_CellValue(h,2),"sum")
		h1 = .InsertItem(h,Nothing,"Task 1")
		.set_CellValue(h1,1,.get_CellValue(h,1))
		.set_CellValue(h1,2,#9/24/2006#)
		.AddBar(h1,"Task",.get_CellValue(h1,1),.get_CellValue(h1,2),"K1")
		.set_ItemBar(h1,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarMinStart,#9/20/2006#)
		h2 = .InsertItem(h,Nothing,"Task 2")
		.set_CellValue(h2,1,.get_CellValue(h1,2))
		.set_CellValue(h2,2,#9/28/2006#)
		.AddBar(h2,"Unknown",.get_CellValue(h2,1),.get_CellValue(h2,2),"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		h3 = .InsertItem(h,Nothing,"Task 3")
		.set_CellValue(h3,1,.get_CellValue(h2,2))
		.set_CellValue(h3,2,.get_CellValue(h,2))
		.AddBar(h3,"Task",.get_CellValue(h3,1),.get_CellValue(h3,2),"K3")
		.AddLink("L2",h2,"K2",h3,"K3")
		.GroupBars(h1,"K1",False,h2,"K2",True,31,"0;4")
		.GroupBars(h2,"K2",False,h3,"K3",True,31,"0;2")
		.DefineSummaryBars(h,"sum",h1,"K1")
		.DefineSummaryBars(h,"sum",h2,"K2")
		.DefineSummaryBars(h,"sum",h3,"K3")
		.set_ExpandItem(h,True)
		.set_ItemBold(h,True)
	End With
	.EndUpdate()
End With

With Exg2antt1
	.BeginUpdate()
	.Chart.set_PaneWidth(True,0)
	.MarkSearchColumn = False
	With .Columns
		With .Add("Car")
			.DisplayFilterButton = True
			.FilterType = exontrol.EXG2ANTTLib.FilterTypeEnum.exFilter
			.Filter = "MAZDA"
		End With
		With .Add("Equipment")
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.CustomFilter = "Air Bag||*Air Bag*|||Air condition||*Air condition*|||ABS||*ABS*|||ESP||*ESP*"
			.FilterType = exontrol.EXG2ANTTLib.FilterTypeEnum.exPattern
			.Filter = "AIR BAG"
		End With
	End With
	With .Items
		.set_CellValue(.AddItem("Mazda"),1,"Air Bag")
		.set_CellValue(.AddItem("Toyota"),1,"Air Bag,Air condition")
		.set_CellValue(.AddItem("Ford"),1,"Air condition")
		.set_CellValue(.AddItem("Nissan"),1,"Air Bag,ABS,ESP")
		.set_CellValue(.AddItem("Mazda"),1,"Air Bag, ABS,ESP")
		.set_CellValue(.AddItem("Mazda"),1,"ABS,ESP")
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With Exg2antt1
	.BeginUpdate()
	.Chart.set_PaneWidth(True,0)
	.MarkSearchColumn = False
	With .Columns
		With .Add("Car")
			.DisplayFilterButton = True
			.FilterType = exontrol.EXG2ANTTLib.FilterTypeEnum.exFilterDoCaseSensitive Or exontrol.EXG2ANTTLib.FilterTypeEnum.exFilter
			.Filter = "Mazda"
		End With
		With .Add("Equipment")
			.DisplayFilterButton = True
			.DisplayFilterPattern = False
			.CustomFilter = "Air Bag||*Air Bag*|||Air condition||*Air condition*|||ABS||*ABS*|||ESP||*ESP*"
			.FilterType = exontrol.EXG2ANTTLib.FilterTypeEnum.exFilterDoCaseSensitive Or exontrol.EXG2ANTTLib.FilterTypeEnum.exPattern
			.Filter = "Air Bag"
		End With
	End With
	With .Items
		.set_CellValue(.AddItem("Mazda"),1,"Air Bag")
		.set_CellValue(.AddItem("Toyota"),1,"Air Bag,Air condition")
		.set_CellValue(.AddItem("Ford"),1,"Air condition")
		.set_CellValue(.AddItem("Nissan"),1,"Air Bag,ABS,ESP")
		.set_CellValue(.AddItem("Mazda"),1,"Air Bag, ABS,ESP")
		.set_CellValue(.AddItem("Mazda"),1,"ABS,ESP")
	End With
	.ApplyFilter()
	.EndUpdate()
End With

Dim h1
With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.set_PaneWidth(False,48)
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"",#1/2/2001#,#1/8/2001#,"K1","Leave Blank")
		.set_ItemBar(h1,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarSelectable,False)
		.set_ItemBar(h1,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarBackColor,255)
	End With
	.EndUpdate()
End With

' ChartEndChanging event - Occurs after the chart has been changed.
Private Sub Exg2antt1_ChartEndChanging(ByVal sender As System.Object,ByVal Operation As exontrol.EXG2ANTTLib.BarOperationEnum) Handles Exg2antt1.ChartEndChanging
	With Exg2antt1
		Debug.Print( "End Operation(exVSplitterChange(10)" )
		Debug.Print( Operation )
		Debug.Print( "PaneWidth:" )
		Debug.Print( .Chart.get_PaneWidth(False) )
	End With
End Sub

' ChartStartChanging event - Occurs when the chart is about to be changed.
Private Sub Exg2antt1_ChartStartChanging(ByVal sender As System.Object,ByVal Operation As exontrol.EXG2ANTTLib.BarOperationEnum) Handles Exg2antt1.ChartStartChanging
	With Exg2antt1
		Debug.Print( "Start Operation(exVSplitterChange(10)" )
		Debug.Print( Operation )
		Debug.Print( "PaneWidth:" )
		Debug.Print( .Chart.get_PaneWidth(False) )
	End With
End Sub

Dim h
With Exg2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.FirstVisibleDate = #12/29/2000#
		.set_PaneWidth(False,64)
		.LevelCount = 2
	End With
	With .Items
		.AddBar(.AddItem("Task 1"),"Task",#1/2/2001#,#1/4/2001#,"K1")
		.AddBar(.AddItem("Task 2"),"Task",#1/4/2001#,#1/6/2001#,"K2")
		.AddBar(.AddItem("Task 3"),"Task",#1/8/2001#,#1/10/2001#,"K3")
		h = .AddItem("")
		.AddBar(h,"",#1/8/2001#,#1/10/2001#,"","<b>Right click</b> the chart, start dragging to select multiple bars<br>or click a bar while pressing the <b>CTRL</b> key")
		.set_ItemHeight(h,36)
		.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarSelectable,False)
	End With
	.EndUpdate()
End With